home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib14.dsk
/
PAGE FLIP ANIMATION.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
859b
|
17 lines
10 HGR : HGR2 : CALL 37799
20 POKE 251,144:YINCR = 2: POKE 227,YINCR: REM SET SHAPE#/YINCR
30 HR = 2:HL = 0: POKE 254,HR: POKE 255,HL: REM START SHAPE ON LEFT SIDE OF SCREEN
35 POKE 252,2: POKE 253,13: REM SET INITIAL VALUES FOR VT/VB
36 POKE 230,64: CALL 37524: REM DRAW AT VT-YINCR/PAGE 2
37 POKE 230,32: CALL 37574: REM DRAW AT VT/PAGE 1
45 FOR X = 1 TO 40
50 CALL 37556: CALL 37581: REM USE FLPDN ROUTINES
60 NEXT
65 CALL 37556: CALL 37470: REM DRAW AT VT-YINCR AND VT+YINCR/PAGE 2-RETURN TO VT
70 FOR X = 1 TO 40
80 CALL 37500: CALL 37531: REM USE FLPUP ROUTINES
90 NEXT
100 POKE 230,64: CALL 37574: POKE 230,32: CALL 37524: REM ERASE VT-YINCR/PAGE 2-VT/PAGE 1
105 HR = HR +1:HL = HL +1: POKE 254,HR: POKE 255,HL: REM MOVE RIGHT
110 IF HR <40 THEN 36: REM IF WE'RE NOT OFF SCREEN CONTINUE RIGHT
120 GOTO 30: REM START OVER